ٌٌٌٌٌٌWelcome

سفارش تبلیغات

RSS خوان پست ها

با سلام خدمت شما بازديدكننده گرامي ، خوش آمدید به سایت من . لطفا براي هرچه بهتر شدن مطالب اين وب سایت ، ما را از نظرات و پيشنهادات خود آگاه سازيد و به ما را در بهتر شدن كيفيت مطالب ياري کنید.

لینک دلخواه

وبلاگ آموزشی خبری کامپیوتر

تاریخ : جمعه 26 خرداد 1391

نویسنده : hamidrezakhouri

نظرات

سوال 1 از فصل 6

برنامه ای بنویسید که بدون استفاده از خاصیت PasswordChar بتواند کلمه رمزی را از ورودی بگیرد و آن را نمایش دهد.

در قسمت General نوشته :

Dim S As String

در قسمت command اجرا نوشته :

()Private Sub Command1_Click

& S"YOUR PASSWORD IS:"MsgBox

End Sub

در قسمت text box نوشته :

(Private Sub Text1_KeyPress(KeyAscii As Integer

If KeyAscii <> 8 Then

(S = S + Chr(KeyAscii

("*")KeyAscii = Asc

Else

(n = Len(S

(If n > 0 Then S = Left(S, n – 1

End If

End Sub

____________________________________________________________________________________

سوال 2 ا فصل 6

2.برنامه ای بنویسید که با هر زدن یک کلید ( حداکثر 4 بار ) یک عکس متفاوت را در کنترل Image نشان دهد و پس از زدن آخرین مرتبه عکس ثابت بماند.

حل : چهار کنترل Image با نامهای image1 تا image4 روی آن قرار می دهیم و خاصیت Stretch آنها را True تنظیم می کنیم .

در قسمت General نوشته :

Dim C As Integer

در قسمت command اجرا نوشته :

()Private Sub command1_Click

If C <= 4 Then

Select Case C

Case 1

Image1.Visible = False

Image2.Visible = True

Case 2

Image2.Visible = False

Image3.Visible = True

Case 3

Image3.Visible = False

Image4.Visible = True

End Select

C = C + 1

If C = 4 Then

"command1.Caption = "Stop

End If

End Sub

در قسمت form-Load نوشته :

()Private Sub Form_Load

C = 1

Image1.Stretch = True

Image2.Stretch = True

Image3.Stretch = True

Image4.Stretch = True

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image2.Top = Image1.Top

Image2.Left = Image1.Left

Image3.Top = Image1.Top

Image3.Left = Image1.Left

Image4.Top = Image1.Top

Image4.Left = Image1.Left

End Sub

___________________________________________________________________________________

سوال 3 از فصل 6

3- برنامه قبل را به گونه ای تغییر دهید که پس از رسیدن به آخرین عکس دوباره به ابتدا باز گردد.

حل : کافی است در برنامه قبل دو تغییر دهید.

1.فرمان case 4 را به select case اضافه کرده بگونه ای که image4 را خاموش و image1 را روشن کند.

2. دستور شرطی به از select case را بر روی شرط c=5 قرارداده.

جواب : متن های قرمز رنگ

در قسمت General نوشته :

Dim C As Integer

در قسمت command اجرا نوشته :

()Private Sub command1_Click

If C <= 4 Then

Select Case C

Case 1

Image1.Visible = False

Image2.Visible = True

Case 2

Image2.Visible = False

Image3.Visible = True

Case 3

Image3.Visible = False

Image4.Visible = True

Case 4

Image4.Visible = False

Image1.Visible = True

End Select

C = C + 1

If C = 5 Then

C=1

End If

End Sub

در قسمت form-load نوشته :

()Private Sub Form_Load

C = 1

Image1.Stretch = True

Image2.Stretch = True

Image3.Stretch = True

Image4.Stretch = True

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image2.Top = Image1.Top

Image2.Left = Image1.Left

Image3.Top = Image1.Top

Image3.Left = Image1.Left

Image4.Top = Image1.Top

Image4.Left = Image1.Left

End Sub

_________________________________________________________________________________

سوال 5 از فصل 6

5. برنامه ای بنویسید که یک تصویر را به وسیله کنترل Image نمایش داده و قابلیت بزرگنمایی از 0.25 تا 4 برابر را برای آن ایجاد کند.

حل : یک کنترل Image نمایش داده و خاصیت Stretch آن را True کرده و 5 کنترل Option را به ترتیب 0.25, 0.5 , 1, 2, 4 انتخاب می کنیم.

در قسمت General نوشته

Dim W As Integer, H As Integer

در قسمت Form-load نوشته :

()Private Sub Form_Load

W = Img1.Width

H = Img1.Height

Option5.Value = True

End Sub

در قسمت option1 نوشته :

()Private Sub Option1_Click

Img1.Width = W * 0.25

Img1.Height = H * 0.25

End Sub

در قسمت option2 نوشته :

()Private Sub Option2_Click

Img1.Width = W * 0.5

Img1.Height = H * 0.5

End Sub

در قسمت option3 نوشته :

()Private Sub Option3_Click

Img1.Width = W * 1

Img1.Height = H * 1

End Sub

در قسمت option4 نوشته :

()Private Sub Option4_Click

Img1.Width = W * 2

Img1.Height = H * 2

End Sub

در قسمت option5 نوشته :

()Private Sub Option5_Click

Img1.Width = W * 4

Img1.Height = H * 4

End Sub

_____________________________________________________________________________________

سوال 4 از فصل 6

4. برنامه ای بنویسید که یک تصویر را نمایش داده و سپس به وسیله متد PaintPicture آن را کوچکتر کرده و در یک کنترل تصویر دیگر نشان دهد .

Private Sub Command1_Click()

Pic2.PaintPicture Pic1.Picture, 0, 0, Pic2.ScaleWidth, Pic2.ScaleHeight

End Sub

_______________________________________________________________________________________

سووال6 از فصل 6

6. برنامه قبل را فقط با PictureBox ایجاد کنید.

حل: فقط کافی است یک کنترل Image را بر روی برنامه گذلشت

جواب : کد برنامه

در قسمت General نوشته

Dim W As Integer, H As Integer

در قسمت Form-load نوشته :

()Private Sub Form_Load

W = Img1.Width

H = Img1.Height

Pic1.Height = H

Pic1.Width = W

Pic1.PaintPicture Img1.Picture, 0, 0, W, H

Opt5.Value = True

End Sub

در قسمت opt1 نوشته :

()Private Sub Opt1_Click

Img1.Width = W * 0.25

Img1.Height = H * 0.25